home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / determ4r / nosee1.frm < prev    next >
Text File  |  1999-08-11  |  2KB  |  72 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   2880
  7.    ClientLeft      =   6240
  8.    ClientTop       =   3690
  9.    ClientWidth     =   4680
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2880
  14.    ScaleWidth      =   4680
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "&END"
  18.       Height          =   495
  19.       Left            =   1680
  20.       TabIndex        =   0
  21.       Top             =   1800
  22.       Width           =   975
  23.    End
  24.    Begin VB.Label Label1 
  25.       Alignment       =   2  'Center
  26.       Appearance      =   0  'Flat
  27.       BackColor       =   &H80000005&
  28.       BackStyle       =   0  'Transparent
  29.       Caption         =   "COOL PROGRAMMING BY [VB-BOY] koffe_s@hotmail.com"
  30.       BeginProperty Font 
  31.          Name            =   "Times New Roman"
  32.          Size            =   9
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       ForeColor       =   &H00000000&
  40.       Height          =   975
  41.       Left            =   1320
  42.       TabIndex        =   1
  43.       Top             =   720
  44.       Width           =   1695
  45.    End
  46. End
  47. Attribute VB_Name = "Form1"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52. '*************************************************'
  53. 'THIS PROGRAM IS BY "VB-BOY" (koffe_s@hotmail.com)'
  54. 'FEEL FREE TO CHANGE THIS PROGRAM MAIL ME IF SOOM '
  55. 'PROBLEMS POP UP                                  '
  56. '*************************************************'
  57. Private Sub Command1_Click()
  58.     Unload Form1
  59. End Sub
  60.  
  61. Private Sub Form_Load()
  62.     Dim a, b, c, d, Desk&
  63.        Label1.Visible = True
  64.        a = Screen.TwipsPerPixelX
  65.        b = Screen.TwipsPerPixelY
  66.        c = Me.Top / b
  67.        d = Me.Left / a
  68.        Desk& = GetDesktopWindow
  69.        BitBlt Me.hDC, 0, 0, Me.Width, Me.Height, GetDC(Desk&), d, c, SRCCOPY
  70. End Sub
  71.  
  72.